DDDDDDDDDDDD ccccccecccccce «LLL 
DODDDDDDDDDD cccccccccccc LLL 
cecccccccccce «LLL 


DODDDDDDDDDD 
DOD DDD ccc LLL 
DOD DDD ccc LLL 
DDD DDD CCC LLL 
DDD DdbD CCC LLL 
DOD DdDD CCC LLL 
DOD DDD ccc LLL 
DDD DDD ccc LLL 
DDD DdDD ccc LLL 
DDD DDD CCC LLL 
DOD DbD CCC LLL 
DOD DOD ccc LLL 
D DDD CCC LLL 
DOD DDD ccc LLL 
DOD DOD CCC LLL 
DOD bbdD CCC LLL 
DDDODDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DODDDDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DDDDDDDDDDDD CCCCCCCCCCCC LLLLLELLELLLLLLLL 
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If - IF COMMAND EXECUTION 15-SEP-1984 23:52:25 VAX/VMS Macro V04-00 Page 1. 
v04-000 27S En 1382 33:26: $3 DISKSVMSMASTER: YEDCL. SRCJIF MARTI (1) 
1 .TITL f COMMAND EXECUTION | | 
i casas 
4 ¢ ITTIIITIIIIIIT TTI t iti iiiiiitiiiiiiiiiitiiitiiititiit iii 
7* * 
0 § t® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
0 :* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
9000 : ;* ALL RIGHTS RESERVED. , 
0000 10: THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0000 11 :* ONLY IN ACCORDANCE WITH THE TERMS OF SU Lic NSE AND WITH THE * 
900 1g 3* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE IR ANY OTHER ®* 
000 13 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 14 :* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
9900 15 ;* TRANSFERRED. * 
° & 
0000 i$ :* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 18 :* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
4444 } :* CORPORAT ib. * 
PY ® 
0000 1 :® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 § 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 te e 
0000 4 3 * 
8006 ; FERRARA AAA AAA A AEA ARERR AAAAAEAAEAAEEAAAAEAEAAEAEA TETHER Ee 
0000 3 : IF COMMAND EXECUTION 
0000 8; 
0000 9 : D. N. CUTLER 9-MAY-77 
0000 0; 
0000 1 : MODIFIED BY: 
0000 é : 
0000 3 v03-002 PCG0003 Peter George 27-May-1983 
+444 ¢ 3 Add NOTHEN status. 
0000 36 : v03-001 pcG0002 Peter George 24-Feb-1983 
44 z : Remove SETBIT WRK_V_NOSTAT. 


- IF COMMAND EXECUTION i at; Sat 4 9 33:26:83 VAX/VMS Macro V04-00 Page § | 
4=SEP=1984 25:40: DISKSVMSMASTER:CDCL.SRCJIF.MAR;1 (2). 


$= 
g 


0 40 ; 
8 6g : MACRO LIBRARY CALLS 
4 ° 
000 44 PRCDEF ;DEFINE PROCESS WORK AREA 
+4 $2 WRKDEF ;DEFINE COMMAND WORK AREA 
444 23 SCLIMSGDEF sDEF INE ERROR/STATUS CODES 
00000000 48 -PSECT DCLSZCODE,BYTE,RD,NOWRT 


je .SBTTL IF COMMAND 
3 DCLSIF = IF COMMAND 


INPUTS: 
R10 = BASE ADDRE 


OUTPUTS: 


RO = DCL$_COMPLX - 
RO = DCLS"EXPSYN - 
RO = DCLS-IVCHAR - 

= DCLSTIVOPER - 


R 
RO = DCLS"UNDSYM 
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a=$Ep=1986 93: 


5 
4 


3:25 VAX/VMS Macro v04-00 rage ; 
: DISKSVMSMASTER:CDCL.SRCJIF.MAR;1 (3) 


THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE IF DCLS COMMAND. 


SS OF COMMAND WORK AREA. 
R11 = BASE ADDRESS OF PROCESS WORK AREA. 


THE IF CLAUSE IS EVALUATED AND IF THE RESULTANT VALUE IS TRUE, THE 
THEN CLAUSE IS EXECUTED BY RETURNING CONTROL TO THE COMMAND EXECUTION 
ENTRY POINT. OTHERWISE CONTROL IS RETURNED VIA THE RETURN ADDRESS. 


RO LOW BIT CLEAR INDICATES EXPRESSION EVALUATION FAILURE. 


EXPRESSION TOO COMPLEX. 


AX ERROR. 
INVALID CHARACTER IN NUMERIC STRING. 
INVALID EXPRESSION OPERATOR. 
UNDEFINED SYMBOL. 


RO = DCLS_NOTHEN = THEN KEYWORD NOT IN EXPECTED LOCATION 


F COMMAND 

VALUATE ARITHMETIC EXPRESSION 

POINTER TO ‘‘THEN’’ STRI 
KEYWORD? 


HEN ERROR 
LBC FALSE RESULT 


69 
68 
+4 
0 
4 
ve 
74 
75 
000 76 
900 of RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 
900 44 RO = DCLS$_NORMAL - NORMAL COMPLETION. 
00 81 
000 Ht DCLSIF:: 
FFFD' 30 0000 8 BSBW DCLSBINEXPR 
C50 €9 0003 84 BLBC e 
52 F486 cA 04 C3 0006 85 SUBL3 #4,WRK_L_EXPANDPTR(R10) ,R2 
62 46454854 BF 01 Bp0e 86 CMPL #*A/THEN7, (R2) 
i Bat 87 BNEQ 3 
03 51 E 15 88 BLBC R1,10$ 
0018 89 
0018 90 ; 
001 91 ; EXECUTE THEN CLAUSE OF IF COMMAND 
001 38 3 
3 9 
FFES* 31 1 94 BRW DCLSCMDSTART 
bn (8 
O18 3 : BYPASS THEN CLAUSE OF IF COMMAND 
18 99 
1 100 108: STATUS NORMAL 
05 101 20$: RSB 
B53 108 
| : : COMMAND SYNTAX ERROR 
106 ° 


E i 
;1F LBC EXPRESSION EVALUATION ERROR 
2G ** STRING 


1 
1 rt OMMAND. santa y P1984 33: 28: 3 DISKSVMSMASTERSEDCL SRCJIF .Mane? 4d) 


8 : : ARK 
50 00038210 a -NOTHEN,RO 


-————_---------— 


IF 
Symbol table 


: 


a 
— 
mon 


sees 
oo 

f a 
rv 
a3 

“4 

r 

m 

2 


eee ern eche wwe 
wwe 
m 
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C 
G 
So. 
=k 
L 
at 
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= b0038e10 
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So 
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Son 


NODOWN>Y PO ~ 
SSSRFTSRSSRSS™ 


RIV 


YD-OMmMmypmv 
=mo<c urr 


pat FF bettas 
O@oawmwmu"<rM 


WRK-L~ERRORRTN 
WRK-L“EXPANDPTR 
WRK-L_IMAG 
WRK-L~MARKPTR 
WRK-L~PAROUT 
WRK"L~PMPTADDR 
WRK"L~PROMPTRIN 


WRK-L“PROPTR 
WRK~L~QUABLK 
WRK-L-READR 
WRK-L-RECALLPTR 
WRK-L-RSLEN 
WRK"LRSLNXT 
WRK-L~SAVAP 
WRK-L-SAVFP 
WRK"L“SAVSP 
WRK-L-SIGNALRTN 
LTSPECRIN 


15-SEP-1984 
4-SEP-1984 


33:26:89 


VAX/VMS Macro V 
DISKSVMSMASTER: 
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Sow 
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~ 
4 


Pee smcaur.manet 3) 


H 11 


= IF COMMAND EXECUTION 15-SEP-1984 t $3: + g VAX/VMS Macro V 
Symbol table 46-SEP-1984 74 DISKSVMSMASTER: 
WRK_L_VERB FFFFFFB 
K-W_FLAGS FFFEFFFF 
WRK _W_FLAGS2 HE 
WRK _W_IMGCHAN peeeeee 
WRK_W_PMPTLEN FFFFFOSE 
fee wre emcee eeoen f 
: Psect synopsis ! 
¢eeecanceas rere nzreca} 
PSECT name Allocation PSECT No. Attributes 
- ABS . 00000000 < 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL 
SABSS FFFFFFFC ¢ 0.) 1¢ 1.) NOPIC USR CON ABS LCL NOSHR' EXE 
DCL$ZCODE QOOOO002E (« 46.) 2¢ 2.) NOPIC USR CON REL LCL NOSHR- EXE 
$e emm mon r eon ene sewn ce ree n $ 
: Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 15 :00: 8-93 8:00: 07°21 
C processing 106 :00:00. $ ret 
Synbo tabl . a £00; 6:3 8 80:01 ‘Of: Pe 
e sor :00:00. e 
e% eo 8:00; 8-29 00: +8808 Bs °3e 
Syabot table output 1 0:00:00.1 00:00: 6°35 
Psect synopsis output 3 99:99:88 -8 290: 0 
Cross-reference output BS: 0: 2-2 0: 9-9 
Assembler run totals 326 0:00:06. 00:00:31. 


The working set Limit was 1050 pages. 

20448 bytes (40 pages) of virtual memory were used to buffer the intermediate goge 

There were 30 pages of symbol table space on yeces d to hold 394 non-local and 3 local symbols. 
1 source Lines were read in Pass 1, producing 135 object records in Pass 2. 

26 pages of virtual memory were used to define 13 macros. 


Fwesceereen oes ewer eeonewavane $ 


! Macro Library statistics H 


tower nwmeoerwonre neon e eeeeoeoee 


Macros defined 


Macro Library name 


Stitt tbSYSt BIg veel Or S, MLB; 1 
eck ie -MLB; 1 
seenuA 


MLB; 1 
iESYS ORV 1B-AL MLB; 2 
weraey Ate Libraries) 


497 GETS were required to define 8 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:1F /OBJ=OBJ$:1F MSRC$:1F /UPDATE=(ENHS: IF) *EXECMLS/LIB+LIBS$:DCL/LIB*SYSS$LIBRARY:SYSBLDMLB/LIB 


PDCLOSRCJIF.MARST (9) 


NOSHR NOEXE NORD NOWRT NOVEC BYTE 


WRT NOVEC BYTE 


RD NOWRT NOVEC BYTE 


i 
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